Dim E_Others            : E_Others            = 1

Dim E_TestPass          : E_TestPass          = 21
Dim E_TestSkip          : E_TestSkip          = 22
Dim E_TestFail          : E_TestFail          = 23

Dim E_BuildFail         : E_BuildFail         = &h80041004
Dim E_OutOfWritable     : E_OutOfWritable     = &h80041005
Dim E_NotFoundSymbol    : E_NotFoundSymbol    = &h80041006
Dim E_ProgRetNotZero    : E_ProgRetNotZero    = &h80041007
Dim E_Unexpected        : E_Unexpected        = &h80041008
Dim E_TimeOut           : E_TimeOut           = &h80041009

Dim E_WIN32_FILE_NOT_FOUND: E_WIN32_FILE_NOT_FOUND = &h80070002
Dim E_WIN32_DIRECTORY     : E_WIN32_DIRECTORY      = &h8007010B

Dim E_ProgTerminated    : E_ProgTerminated    = &hC0000005

Dim E_BadType           : E_BadType           = 13
Dim E_FileNotExist      : E_FileNotExist      = 53
Dim E_EndOfFile         : E_EndOfFile         = 62
Dim E_WriteAccessDenied : E_WriteAccessDenied = 70
Dim E_ReadAccessDenied  : E_ReadAccessDenied  = 70
Dim E_PathNotFound      : E_PathNotFound      = 76
Dim E_AlreadyExist      : E_AlreadyExist      = 58

(src)

関連

→ エラーメッセージ (VBS)

→ Windows エラーコード

<ERROR msg="Script finished before Err2.Clear or Raise the error"
jp="エラー処理の途中で終了しました。Err2.Clear または再 Raise してください"
err_symbol="E_NotClear" />

エラーメッセージ：

処理フロー

VBScript global code (メインvbs の vbslib include)

ResumePop

CallFinalizeInModules

(= g_FinalizeModules(i))

FinalizeModule (vbslib.vbs)

Err2.OnSuccessFinish

echo  GetErrStr( num, Description )

0

<ERROR msg="Out of Diff"
src=
 "C:\folder\file1.txt"
dst=
 "C:\folder"
/>

<ERROR

ログを検索する時は、"<ERROR " で検索すると、すぐに見つかります。
エラーが発生したときは、"<WARNING " で検索すると問題を解決するヒント
が得られるかもしれません。

msg

自然言語のエラーメッセージ

src, dst など

値がパスのときは、タグジャンプができるように新しい行から値を書く。

→ GetErrStr

関連

XML を使って、エラー情報を構造化します。
もしエラー情報の一部を取得したいときは、エラーメッセージ（Err2.Description） を

LoadXML

に渡してください。 参考

→ Err2 オブジェクト

Sub  Error()

簡易的にその他のエラーを発生させます。

コーディングが最も楽なエラー発生です。 その代わり、エラーの内容はユーザに
伝わりません。 cscript.exe のエラーレベルは 1 になります。

エラー値を返す API やライブラリは、少なくとも、正常に処理されたことを示す値
でなかったら、本関数を呼び出して、緊急停止させます。

想定済みのエラーであれば、ユーザがエラーに対応できるように、Raise などを
使ってエラー処理を実装してください。
想定外のエラーや開発者が発生させたことがないエラーは、本関数を呼び出して、
緊急停止させます。

(src)

関連

→ Raise

エラーを発生させる。

Sub  OrError()

Sub  Raise( ErrorNum as integer, Description as string )

新規にエラーを発生させます。

Sub  Warning( Description as string )

警告を表示してプロセスを終了します。

(src)

【引数】

Description

警告メッセージ

エラーコード E_TestPass(=21) のエラーが発生します。

Function  GetErrStr( e_num as integer, e_desc as string ) as string

標準形式のエラーメッセージを返す。

【引数】

e_num

e_desc

エラーコード

エラーメッセージ

(src)

→ エラーメッセージ文字列の標準書式(XML版)

サンプル：

関連

    Dim  e  ' as Err2
    If TryStart(e) Then  On Error Resume Next
        ...
    If TryEnd Then  On Error GoTo 0
    If e.num <> 0 Then
        e.OverRaise  e.Number,  AppendErrorMessage( e.Description, _
            "msg2=""追加メッセージ。""" )
    End If

Function  TryStart( e as Err2 ) as boolean

Try ブロックの開始に記述します。
On Error Resume Next を呼び出すべきかどうかを判定します。

(src)

→ Err2 のコーディング例 (TryStart, TryEnd)

参考

"エラーが発生しているときに TryStart は呼べません。" エラーについて

ほとんどの場合、１つ目のエラーを対処することで、２つ目のエラーは発生しなくなるため、
２つ目のエラーが発生したときに、１つ目のエラーの情報が上書きされて消えてしまうことが
ないようにすることが重要です。

エラーが発生(1)

TryStart

TryEnd

Function  TryEnd() as boolean

Try ブロックの終了に記述します。
On Error GoTo 0 を呼び出すべきかどうかを判定します。

→ Err2 のコーディング例 (TryStart, TryEnd)

参考

(src)

Function  Trying() as boolean

Try ブロックの中で記述します。
エラーが発生していたら False を返します。

→ Err2 のコーディング例 (TryStart, TryEnd)

参考

(src)

Sub  ErrCheck()

これまでの処理で、エラーがあったかどうかをチェックして、エラーがあったら発生させます。

クラスの Class_Initialize メソッドの中でエラーが発生しても、VBScript は、続きを実行してしまい、
エラーを見つけるのが困難になります。 new でオブジェクトを生成したら、本関数を呼び出して
ください。

サンプル：

Sub  ErrorCheckInTerminate( ErrNumAtStart as integer )

クラスの Class_Terminate の中で発生したエラーを表示します。

エラーが発生していたら、Err オブジェクトの内容を echo 出力して Stop または pause します。
エラーが発生していなかったら（Err.Number = 0 なら）、何もしません。
Class_Terminate の中でエラーを発生させることはできないので、ErrorCheckInTerminateも
エラーを発生させません。

→ Class_Terminate の中のエラー

Sub  NotCallFinish()

Finish が呼ばれないで、クラスの Class_Terminate が呼ばれたときにエラー表示します。

関連

→ Class_Terminate の中のエラー

Sub  FuncA( Path )
    Set fin = new FinObj : fin.SetFunc "FuncA_Finally"

    ren  Path, "a.txt" : fin.SetVar "Path", Path  '// 戻すときのデータを記録
      :
    fin.SetVar "Path", Empty  '// 正常時は戻さないならデータを削除
End Sub
 Sub  FuncA_Finally( Vars )  '// Finally ブロックに相当
    en = Err.Number : ed = Err.Description : On Error Resume Next  '// This clears error

    path = Vars.Item("Path")  '// 戻すデータを取得
    If not IsEmpty( path ) Then
        ren  "a.txt", path  '// 戻す処理
    End If

    ErrorCheckInTerminate  en : On Error GoTo 0 : If en <> 0 Then  Err.Raise en,,ed  '// This sets en again
End Sub

FuncA_Finally

Path

FuncA_Finally

Path

ren  Path, "a.txt"

ren  "a.txt", path

記述例： 関数の場合

関連

→ Class_Terminate （デストラクタ）

(src)